home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Shortcut 1.xpl < prev    next >
Text File  |  2001-04-13  |  2KB  |  85 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Files&Folders\Shortcuts"
  5. "NAME"="Shortcut Arrow"
  6. "VERSION"="1.32"
  7. "LANGUAGE"="VBScript"
  8. "WARNING"="1"
  9. "TEXT 1"="Display arrow on shortcuts (*.lnk)"
  10. "TEXT 2"="Display arrow on DOS-shortcuts (*.pif)"
  11. "TEXT 3"="Display arrow on Internet shortcuts (*.url)"
  12. "DESCRIPTION 1"="To display the white arrow in the left corner of a shortcut, activate or deactivate the option your are interessted in."
  13. "DESCRIPTION 2"="Note #1: Deactivating the arrow for *.LNK files will also disable any shortcut key defined for your shortcuts!"
  14. "DESCRIPTION 3"="Note #2: Deactivating the arrow for *.URL files will also cause the Start -> Favorites menu to be empty."
  15. "DESCRIPTION 4"="Note #3: Please note that in some cases deactivating the arrow for *.LNK files might light to duplicate itmes in the Explorer Context menu."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Internet Shortcut support added by Pierre Szwarc [szwarc@usa.net]"
  21.  
  22.  
  23.  
  24. Sub Plugin_Initialize 
  25.  s=RegReadValue("HKCR\Lnkfile\IsShortcut")
  26.  if IsEmpty(s)=false then
  27.     SetUIElement 1,true
  28.  end if
  29.  
  30.  s=RegReadValue("HKCR\piffile\IsShortcut")
  31.  if IsEmpty(s)=false then
  32.     SetUIElement 2,true
  33.  end if
  34.  
  35.  s=RegReadValue("HKCR\InternetShortcut\IsShortcut")
  36.  if IsEmpty(s)=false then
  37.     SetUIElement 3,true
  38.  end if
  39.  
  40. End Sub
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  b=GetUIElement(1)
  47.  if b=true then
  48.     Call RegWriteValue("HKCR\Lnkfile\IsShortcut","",1)
  49.  else
  50.     s=RegReadValue("HKCR\Lnkfile\IsShortcut")
  51.     if IsEmpty(s)=false then
  52.        Call RegDeleteValue("HKCR\Lnkfile\IsShortcut")
  53.     end if
  54.  end if
  55.  
  56.  b=GetUIElement(2)
  57.  if b=true then
  58.     Call RegWriteValue("HKCR\piffile\IsShortcut","",1)
  59.  else
  60.     s=RegReadValue("HKCR\piffile\IsShortcut")
  61.     if IsEmpty(s)=false then
  62.        Call RegDeleteValue("HKCR\piffile\IsShortcut")
  63.     end if
  64.  end if
  65.  
  66.  b=GetUIElement(3)
  67.  if b=true then
  68.     Call RegWriteValue("HKCR\InternetShortcut\IsShortcut","",1)
  69.  else
  70.     s=RegReadValue("HKCR\InternetShortcut\IsShortcut")
  71.     if IsEmpty(s)=false then
  72.        Call RegDeleteValue("HKCR\InternetShortcut\IsShortcut")
  73.     end if
  74.  end if
  75.  
  76.  Restart
  77. End Sub
  78.  
  79.  
  80. Sub Plugin_Terminate 
  81. End Sub
  82.  
  83.  
  84.  
  85.